//COMPONENTE_EM_TEMPO_EXECULCAO

void __fastcall TForm1::Button1Click(TObject *Sender)

{

//cria uma imagem no fundo (sloga)

TImage *sloga;

sloga = new TImage (this);

sloga->Parent = this;

sloga->Picture->LoadFromFile(ExtractFilePath(Application->ExeName)+ "Sloga.bmp");

sloga->Align = alClient;

sloga->Visible = true;

sloga->Stretch = true;

sloga->Hint = "Tela Principal" ;

}